FileSize
Otázka od: JSDELPHI
2. 9. 2002 1:09
Mam nasledujici problem. Nedokazi zjistit skutecnou velikost souboru napr.
6GB. Nepomohlo ani JCL. Prosim o radu.
Jan Skopovy
Odpovedá: Petr Vones
2. 9. 2002 0:18
From: "JSDELPHI" <jsdelphi@atlas.cz>
> Mam nasledujici problem. Nedokazi zjistit skutecnou velikost souboru napr.
> 6GB. Nepomohlo ani JCL. Prosim o radu.
JclFileUtils - funkce GetSizeOfFile
Petr Vones
Odpovedá: JSDELPHI
2. 9. 2002 8:21
Diky, ale to mi vraci chybnou hodnotu. Vysledek ve skutecnosti neni Int64.
Podle napovedy je totiz vysledek shl typu Integer, coz je asi problem
navrhovane funkce.
V pripade ze je FindData.nFileSizeHigh > 0 tak pricitam 2 na
(31+FindData.nFileSizeHigh), tak to funguje.
Jan Skopovy
> > Mam nasledujici problem. Nedokazi zjistit skutecnou velikost souboru
napr.
> > 6GB. Nepomohlo ani JCL. Prosim o radu.
>
> JclFileUtils - funkce GetSizeOfFile
>
> Petr Vones
>
Odpovedá: ing. Jan Fiala
2. 9. 2002 11:37
A zkousel jsi API funkci GetFileSize() ?
--
ing. Jan Fiala
mailto:jan.fiala@iol.cz
2.9.2002 JSDELPHI:
> Diky, ale to mi vraci chybnou hodnotu. Vysledek ve skutecnosti neni Int64.
> Podle napovedy je totiz vysledek shl typu Integer, coz je asi problem
> navrhovane funkce.
> V pripade ze je FindData.nFileSizeHigh > 0 tak pricitam 2 na
> (31+FindData.nFileSizeHigh), tak to funguje.
> Jan Skopovy
Odpovedá: Petr Vones
2. 9. 2002 12:42
From: "JSDELPHI" <jsdelphi@atlas.cz>
> Diky, ale to mi vraci chybnou hodnotu. Vysledek ve skutecnosti neni Int64.
> Podle napovedy je totiz vysledek shl typu Integer, coz je asi problem
> navrhovane funkce.
Diky, mas pravdu. Je to opravene, stejna chyba byla i v GetDirectorySize.
Petr Vones
Odpovedá: Lauko Stefan
2. 9. 2002 15:26
Ahoj chcel som ti poradit FindFirst ale ani to asi nebude fungovat lebo uz z
typu TSearchRec je to jasna chyba.
{ Search record used by FindFirst, FindNext, and FindClose }
TSearchRec = record
Time: Integer;
Size: Integer; ********* malo by byt Int64***********
Attr: Integer;
Name: TFileName;
ExcludeAttr: Integer;
{$IFDEF MSWINDOWS}
FindHandle: THandle platform;
FindData: TWin32FindData platform;
{$ENDIF}
{$IFDEF LINUX}
Mode: mode_t platform;
FindHandle: Pointer platform;
PathOnly: String platform;
Pattern: String platform;
{$ENDIF}
end;
Lauko.
----- Original Message -----
From: "JSDELPHI" <jsdelphi@atlas.cz>
> Mam nasledujici problem. Nedokazi zjistit skutecnou velikost souboru napr.
> 6GB. Nepomohlo ani JCL. Prosim o radu.
> Jan Skopovy
Odpovedá: Delphin
2. 9. 2002 16:26
> Ahoj chcel som ti poradit FindFirst ale ani to asi nebude fungovat lebo uz
z
> typu TSearchRec je to jasna chyba.
SearchRec.FindData.nFileSizeHigh a SearchRec.FindData.nFileSizeLow fungovat
bude.